home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln1286.arc / BNCHMARK.ADA / HANOI.ADA < prev    next >
Text File  |  1986-10-21  |  1KB  |  43 lines
  1. --with TEXT_IO; use TEXT_IO;
  2.  
  3. procedure HANOI is
  4.  
  5.     --
  6.     -- Towers of Hanoi problem
  7.     --     Author: Bruce A. Bergman
  8.     --     Source available from Mark Petersen's Alpo-Net FIDO board at
  9.     --     (619) 741-3412, 300/1200/2400 8,N,1
  10.     --
  11.  
  12.  
  13.     ------------------------------
  14.     -- declarations
  15.     ------------------------------
  16.  
  17.     number_of_disks : constant natural := 10;
  18.  
  19. --    peg : constant array (1..3) of string (1..3) := (" A ", " B ", " C ");
  20.  
  21.     ------------------------------
  22.     -- MOVE_DISK
  23.     ------------------------------
  24.  
  25.     procedure MOVE_DISK(source, temp, destin : in natural;
  26.                         how_many : in natural) is
  27.  
  28.     begin
  29.         if how_many > 1 then
  30.             move_disk(source, destin, temp, how_many-1);
  31.         end if;
  32.     
  33. --        put_line("Moving disk from" & peg(source) & "to" & peg(destin));
  34.  
  35.         if how_many > 1 then
  36.             move_disk(temp, source, destin, how_many-1);
  37.         end if;
  38.     end MOVE_DISK;
  39.  
  40. begin
  41.     move_disk(1, 2, 3, number_of_disks);
  42. end HANOI;
  43.